on mouseUp
  --NOW STORING SCORES
  --CALCULATION WHIZ
  --COPYRIGHT 1993 BY ROBERT M. NIDEFFER
  PUT 0 INTO X
  IF CARD FLD PLAYER=EMPTY THEN
    PUT "ANONYMOUS" INTO LINE 1 OF CARD FLD CALCULATE
  ELSE
    PUT CARD FLD PLAYER INTO LINE 1 OF CARD FLD CALCULATE
  END IF
  PUT LINE 1 OF CARD FLD COUNT2 INTO CT
  PUT CT INTO LINE 2 OF CARD FLD CALCULATE
  PUT LINE 1 OF CARD FLD COUNT3 INTO X
  PUT X INTO LINE 3 OF CARD FLD CALCULATE
  PUT 0 INTO X
  REPEAT WITH I=1 TO CT
    ADD LINE I OF CARD FLD SUBJECT1 TO X
  END REPEAT
  SET NUMBERFORMAT TO 0.00
  PUT ((X/CT)/60) INTO SECS
  PUT SECS INTO LINE 4 OF CARD FLD CALCULATE
  PUT LINE 1 OF CARD FLD COUNT3 INTO MIS
  PUT 100*(CT-MIS) INTO V1
  PUT SECS*CT INTO V2
  PUT ROUND OF V1-V2 INTO LINE 5 OF CARD FLD CALCULATE
  SET LOCKSCREEN TO TRUE
  SET LOCKMESSAGES TO FALSE
  GO CARD MATHSCORE
  PUT CARD FLD PLAYER OF CARD CALCULATION INTO M
  IF M=EMPTY THEN PUT "NAMELESS" INTO M
  PUT M INTO CARD FLD PLAYER1
  PUT CARD FLD "CALCULATE" OF CARD CALCULATION INTO CARD FLD NAMELESS
  CLICK AT LOC OF CARD BUTTON SCORE
  GO CARD CALCULATION
  CHOOSE BROWSE TOOL
  --NOW SAVING SCORES
  --SUBJECT NAME=V1
  PUT LINE 1 OF CARD FLD CALCULATE INTO V1
  --V2=NUMBER CORRECT
  PUT LINE 2 OF CARD FLD CALCULATE INTO V2
  --V3=NUMBER INCORRECT
  PUT LINE 3 OF CARD FLD CALCULATE INTO V3
  --V4=AVERAGE SOLUTION TIME
  PUT LINE 4 OF CARD FLD CALCULATE INTO V4
  PUT NUMBER OF LINES IN CARD FLD SUMMARY INTO CT
  PUT V1&","&V2&","&V3&","&V4 INTO LINE CT+1 OF CARD FLD SUMMARY
  GO CARD MATHSCORE
  SET LOCKSCREEN TO FALSE
  SET LOCKMESSAGES TO FALSE
  
end mouseUp